module test_utils_misc_mod

use pFUnit

use utils_misc_mod, only: Print_ErrCode, ARROW_ERR_PAR_INVAL

private

public :: setUp, tearDown, test_printerrcode

real, allocatable :: buffer( : ) ! the fixture

contains

    subroutine setUp( )
        integer :: i
        allocate( buffer( 10 ) )
        buffer = [ (i, i=2, 11 ) ]
    end subroutine setUp

    subroutine tearDown( )
        deallocate( buffer )
    end subroutine tearDown

    subroutine test_printerrcode( )
        call setUp()
        call Print_ErrCode(ARROW_ERR_PAR_INVAL)
        call assertEqual(1, 1, "Print_Errcode test")
        call tearDown()
    end subroutine test_printerrcode

end module test_utils_misc_mod
